home *** CD-ROM | disk | FTP | other *** search
/ Freelog 22 / freelog 22.iso / Prog / Djgpp / GPC2952B.ZIP / lib / gcc-lib / djgpp / 2.952 / units / crt.inc next >
Encoding:
Text File  |  2001-02-08  |  22.2 KB  |  470 lines
  1. {
  2. Common declarations for crt.pas and crtc.c
  3.  
  4. This file is included into crt.pas. crtc.h which is included into crtc.c
  5. can be generated from this file (cf. Make-lang.in in the main GPC source
  6. directory).
  7.  
  8. Copyright (C) 1998-2001 Free Software Foundation, Inc.
  9.  
  10. Author: Frank Heckenbach <frank@pascal.gnu.de>
  11.  
  12. This file is part of GNU Pascal.
  13.  
  14. GNU Pascal is free software; you can redistribute it and/or modify
  15. it under the terms of the GNU General Public License as published by
  16. the Free Software Foundation; either version 2, or (at your option)
  17. any later version.
  18.  
  19. GNU Pascal is distributed in the hope that it will be useful,
  20. but WITHOUT ANY WARRANTY; without even the implied warranty of
  21. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  22. GNU General Public License for more details.
  23.  
  24. You should have received a copy of the GNU General Public License
  25. along with GNU Pascal; see the file COPYING. If not, write to the
  26. Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  27. 02111-1307, USA.
  28.  
  29. As a special exception, if you link this file with files compiled
  30. with a GNU compiler to produce an executable, this does not cause
  31. the resulting executable to be covered by the GNU General Public
  32. License. This exception does not however invalidate any other
  33. reasons why the executable file might be covered by the GNU General
  34. Public License.
  35. }
  36.  
  37. const
  38.   ksUnknown    = #255;     kbUnknown    = $100 * Ord (ksUnknown);
  39.   ksLeft       = #75;      kbLeft       = $100 * Ord (ksLeft);
  40.   ksRight      = #77;      kbRight      = $100 * Ord (ksRight);
  41.   ksUp         = #72;      kbUp         = $100 * Ord (ksUp);
  42.   ksDown       = #80;      kbDown       = $100 * Ord (ksDown);
  43.   ksPgUp       = #73;      kbPgUp       = $100 * Ord (ksPgUp);
  44.   ksPgDn       = #81;      kbPgDn       = $100 * Ord (ksPgDn);
  45.   ksHome       = #71;      kbHome       = $100 * Ord (ksHome);
  46.   ksEnd        = #79;      kbEnd        = $100 * Ord (ksEnd);
  47.   ksIns        = #82;      kbIns        = $100 * Ord (ksIns);
  48.   ksDel        = #83;      kbDel        = $100 * Ord (ksDel);
  49.   ksCenter     = #76;      kbCenter     = $100 * Ord (ksCenter);
  50.   ksShTab      = #15;      kbShTab      = $100 * Ord (ksShTab);
  51.   ksShIns      = #246;     kbShIns      = $100 * Ord (ksShIns);
  52.   ksShDel      = #247;     kbShDel      = $100 * Ord (ksShDel);
  53.   ksCtrlTab    = #148;     kbCtrlTab    = $100 * Ord (ksCtrlTab);
  54.   ksCtrlLeft   = #115;     kbCtrlLeft   = $100 * Ord (ksCtrlLeft);
  55.   ksCtrlRight  = #116;     kbCtrlRight  = $100 * Ord (ksCtrlRight);
  56.   ksCtrlUp     = #141;     kbCtrlUp     = $100 * Ord (ksCtrlUp);
  57.   ksCtrlDown   = #145;     kbCtrlDown   = $100 * Ord (ksCtrlDown);
  58.   ksCtrlPgUp   = #132;     kbCtrlPgUp   = $100 * Ord (ksCtrlPgUp);
  59.   ksCtrlPgDn   = #118;     kbCtrlPgDn   = $100 * Ord (ksCtrlPgDn);
  60.   ksCtrlHome   = #119;     kbCtrlHome   = $100 * Ord (ksCtrlHome);
  61.   ksCtrlEnd    = #117;     kbCtrlEnd    = $100 * Ord (ksCtrlEnd);
  62.   ksCtrlIns    = #146;     kbCtrlIns    = $100 * Ord (ksCtrlIns);
  63.   ksCtrlDel    = #147;     kbCtrlDel    = $100 * Ord (ksCtrlDel);
  64.   ksCtrlCentr  = #143;     kbCtrlCentr  = $100 * Ord (ksCtrlCentr);
  65.   ksAltTab     = #165;     kbAltTab     = $100 * Ord (ksAltTab);
  66.   ksAltLeft    = #155;     kbAltLeft    = $100 * Ord (ksAltLeft);
  67.   ksAltRight   = #157;     kbAltRight   = $100 * Ord (ksAltRight);
  68.   ksAltUp      = #152;     kbAltUp      = $100 * Ord (ksAltUp);
  69.   ksAltDown    = #160;     kbAltDown    = $100 * Ord (ksAltDown);
  70.   ksAltPgUp    = #153;     kbAltPgUp    = $100 * Ord (ksAltPgUp);
  71.   ksAltPgDn    = #161;     kbAltPgDn    = $100 * Ord (ksAltPgDn);
  72.   ksAltHome    = #151;     kbAltHome    = $100 * Ord (ksAltHome);
  73.   ksAltEnd     = #159;     kbAltEnd     = $100 * Ord (ksAltEnd);
  74.   ksAltIns     = #162;     kbAltIns     = $100 * Ord (ksAltIns);
  75.   ksAltDel     = #163;     kbAltDel     = $100 * Ord (ksAltDel);
  76.   ksAltEnter   = #166;     kbAltEnter   = $100 * Ord (ksAltEnter);
  77.   ksAltPStar   = #55;      kbAltPStar   = $100 * Ord (ksAltPStar);
  78.   ksAltPMinus  = #74;      kbAltPMinus  = $100 * Ord (ksAltPMinus);
  79.   ksAltPPlus   = #78;      kbAltPPlus   = $100 * Ord (ksAltPPlus);
  80.   ksAltEsc     = #1;       kbAltEsc     = $100 * Ord (ksAltEsc);
  81.   ksAltSpace   = #2;       kbAltSpace   = $100 * Ord (ksAltSpace);
  82.   ksAltBkSp    = #14;      kbAltBkSp    = $100 * Ord (ksAltBkSp);
  83.   ksAltMinus   = #130;     kbAltMinus   = $100 * Ord (ksAltMinus);
  84.   ksAltEqual   = #131;     kbAltEqual   = $100 * Ord (ksAltEqual);
  85.   ksAltLBrack  = #26;      kbAltLBrack  = $100 * Ord (ksAltLBrack);
  86.   ksAltRBrack  = #27;      kbAltRBrack  = $100 * Ord (ksAltRBrack);
  87.   ksAltSemic   = #39;      kbAltSemic   = $100 * Ord (ksAltSemic);
  88.   ksAltFQuote  = #40;      kbAltFQuote  = $100 * Ord (ksAltFQuote);
  89.   ksAltBQuote  = #41;      kbAltBQuote  = $100 * Ord (ksAltBQuote);
  90.   ksAltComma   = #51;      kbAltComma   = $100 * Ord (ksAltComma);
  91.   ksAltStop    = #52;      kbAltStop    = $100 * Ord (ksAltStop);
  92.   ksAltFSlash  = #53;      kbAltFSlash  = $100 * Ord (ksAltFSlash);
  93.   ksAltBSlash  = #43;      kbAltBSlash  = $100 * Ord (ksAltBslash);
  94.   ksAlt0       = #129;     kbAlt0       = $100 * Ord (ksAlt0);
  95.   ksAlt1       = #120;     kbAlt1       = $100 * Ord (ksAlt1);
  96.   ksAlt2       = #121;     kbAlt2       = $100 * Ord (ksAlt2);
  97.   ksAlt3       = #122;     kbAlt3       = $100 * Ord (ksAlt3);
  98.   ksAlt4       = #123;     kbAlt4       = $100 * Ord (ksAlt4);
  99.   ksAlt5       = #124;     kbAlt5       = $100 * Ord (ksAlt5);
  100.   ksAlt6       = #125;     kbAlt6       = $100 * Ord (ksAlt6);
  101.   ksAlt7       = #126;     kbAlt7       = $100 * Ord (ksAlt7);
  102.   ksAlt8       = #127;     kbAlt8       = $100 * Ord (ksAlt8);
  103.   ksAlt9       = #128;     kbAlt9       = $100 * Ord (ksAlt9);
  104.   ksAltA       = #30;      kbAltA       = $100 * Ord (ksAltA);
  105.   ksAltB       = #48;      kbAltB       = $100 * Ord (ksAltB);
  106.   ksAltC       = #46;      kbAltC       = $100 * Ord (ksAltC);
  107.   ksAltD       = #32;      kbAltD       = $100 * Ord (ksAltD);
  108.   ksAltE       = #18;      kbAltE       = $100 * Ord (ksAltE);
  109.   ksAltF       = #33;      kbAltF       = $100 * Ord (ksAltF);
  110.   ksAltG       = #34;      kbAltG       = $100 * Ord (ksAltG);
  111.   ksAltH       = #35;      kbAltH       = $100 * Ord (ksAltH);
  112.   ksAltI       = #23;      kbAltI       = $100 * Ord (ksAltI);
  113.   ksAltJ       = #36;      kbAltJ       = $100 * Ord (ksAltJ);
  114.   ksAltK       = #37;      kbAltK       = $100 * Ord (ksAltK);
  115.   ksAltL       = #38;      kbAltL       = $100 * Ord (ksAltL);
  116.   ksAltM       = #50;      kbAltM       = $100 * Ord (ksAltM);
  117.   ksAltN       = #49;      kbAltN       = $100 * Ord (ksAltN);
  118.   ksAltO       = #24;      kbAltO       = $100 * Ord (ksAltO);
  119.   ksAltP       = #25;      kbAltP       = $100 * Ord (ksAltP);
  120.   ksAltQ       = #16;      kbAltQ       = $100 * Ord (ksAltQ);
  121.   ksAltR       = #19;      kbAltR       = $100 * Ord (ksAltR);
  122.   ksAltS       = #31;      kbAltS       = $100 * Ord (ksAltS);
  123.   ksAltT       = #20;      kbAltT       = $100 * Ord (ksAltT);
  124.   ksAltU       = #22;      kbAltU       = $100 * Ord (ksAltU);
  125.   ksAltV       = #47;      kbAltV       = $100 * Ord (ksAltV);
  126.   ksAltW       = #17;      kbAltW       = $100 * Ord (ksAltW);
  127.   ksAltX       = #45;      kbAltX       = $100 * Ord (ksAltX);
  128.   ksAltY       = #21;      kbAltY       = $100 * Ord (ksAltY);
  129.   ksAltZ       = #44;      kbAltZ       = $100 * Ord (ksAltZ);
  130.   ksAltGr0     = #168;     kbAltGr0     = $100 * Ord (ksAltGr0);
  131.   ksAltGr1     = #169;     kbAltGr1     = $100 * Ord (ksAltGr1);
  132.   ksAltGr2     = #170;     kbAltGr2     = $100 * Ord (ksAltGr2);
  133.   ksAltGr3     = #171;     kbAltGr3     = $100 * Ord (ksAltGr3);
  134.   ksAltGr4     = #172;     kbAltGr4     = $100 * Ord (ksAltGr4);
  135.   ksAltGr5     = #173;     kbAltGr5     = $100 * Ord (ksAltGr5);
  136.   ksAltGr6     = #174;     kbAltGr6     = $100 * Ord (ksAltGr6);
  137.   ksAltGr7     = #175;     kbAltGr7     = $100 * Ord (ksAltGr7);
  138.   ksAltGr8     = #176;     kbAltGr8     = $100 * Ord (ksAltGr8);
  139.   ksAltGr9     = #177;     kbAltGr9     = $100 * Ord (ksAltGr9);
  140.   ksAltGrA     = #178;     kbAltGrA     = $100 * Ord (ksAltGrA);
  141.   ksAltGrB     = #179;     kbAltGrB     = $100 * Ord (ksAltGrB);
  142.   ksAltGrC     = #180;     kbAltGrC     = $100 * Ord (ksAltGrC);
  143.   ksAltGrD     = #181;     kbAltGrD     = $100 * Ord (ksAltGrD);
  144.   ksAltGrE     = #182;     kbAltGrE     = $100 * Ord (ksAltGrE);
  145.   ksAltGrF     = #183;     kbAltGrF     = $100 * Ord (ksAltGrF);
  146.   ksAltGrG     = #184;     kbAltGrG     = $100 * Ord (ksAltGrG);
  147.   ksAltGrH     = #185;     kbAltGrH     = $100 * Ord (ksAltGrH);
  148.   ksAltGrI     = #186;     kbAltGrI     = $100 * Ord (ksAltGrI);
  149.   ksAltGrJ     = #187;     kbAltGrJ     = $100 * Ord (ksAltGrJ);
  150.   ksAltGrK     = #188;     kbAltGrK     = $100 * Ord (ksAltGrK);
  151.   ksAltGrL     = #189;     kbAltGrL     = $100 * Ord (ksAltGrL);
  152.   ksAltGrM     = #190;     kbAltGrM     = $100 * Ord (ksAltGrM);
  153.   ksAltGrN     = #191;     kbAltGrN     = $100 * Ord (ksAltGrN);
  154.   ksAltGrO     = #192;     kbAltGrO     = $100 * Ord (ksAltGrO);
  155.   ksAltGrP     = #193;     kbAltGrP     = $100 * Ord (ksAltGrP);
  156.   ksAltGrQ     = #194;     kbAltGrQ     = $100 * Ord (ksAltGrQ);
  157.   ksAltGrR     = #195;     kbAltGrR     = $100 * Ord (ksAltGrR);
  158.   ksAltGrS     = #196;     kbAltGrS     = $100 * Ord (ksAltGrS);
  159.   ksAltGrT     = #197;     kbAltGrT     = $100 * Ord (ksAltGrT);
  160.   ksAltGrU     = #198;     kbAltGrU     = $100 * Ord (ksAltGrU);
  161.   ksAltGrV     = #199;     kbAltGrV     = $100 * Ord (ksAltGrV);
  162.   ksAltGrW     = #200;     kbAltGrW     = $100 * Ord (ksAltGrW);
  163.   ksAltGrX     = #201;     kbAltGrX     = $100 * Ord (ksAltGrX);
  164.   ksAltGrY     = #202;     kbAltGrY     = $100 * Ord (ksAltGrY);
  165.   ksAltGrZ     = #203;     kbAltGrZ     = $100 * Ord (ksAltGrZ);
  166.   ksExtra0     = #208;     kbExtra0     = $100 * Ord (ksExtra0);
  167.   ksExtra1     = #209;     kbExtra1     = $100 * Ord (ksExtra1);
  168.   ksExtra2     = #210;     kbExtra2     = $100 * Ord (ksExtra2);
  169.   ksExtra3     = #211;     kbExtra3     = $100 * Ord (ksExtra3);
  170.   ksExtra4     = #212;     kbExtra4     = $100 * Ord (ksExtra4);
  171.   ksExtra5     = #213;     kbExtra5     = $100 * Ord (ksExtra5);
  172.   ksExtra6     = #214;     kbExtra6     = $100 * Ord (ksExtra6);
  173.   ksExtra7     = #215;     kbExtra7     = $100 * Ord (ksExtra7);
  174.   ksExtra8     = #216;     kbExtra8     = $100 * Ord (ksExtra8);
  175.   ksExtra9     = #217;     kbExtra9     = $100 * Ord (ksExtra9);
  176.   ksExtraA     = #218;     kbExtraA     = $100 * Ord (ksExtraA);
  177.   ksExtraB     = #219;     kbExtraB     = $100 * Ord (ksExtraB);
  178.   ksExtraC     = #220;     kbExtraC     = $100 * Ord (ksExtraC);
  179.   ksExtraD     = #221;     kbExtraD     = $100 * Ord (ksExtraD);
  180.   ksExtraE     = #222;     kbExtraE     = $100 * Ord (ksExtraE);
  181.   ksExtraF     = #223;     kbExtraF     = $100 * Ord (ksExtraF);
  182.   ksExtraG     = #224;     kbExtraG     = $100 * Ord (ksExtraG);
  183.   ksExtraH     = #225;     kbExtraH     = $100 * Ord (ksExtraH);
  184.   ksExtraI     = #226;     kbExtraI     = $100 * Ord (ksExtraI);
  185.   ksExtraJ     = #227;     kbExtraJ     = $100 * Ord (ksExtraJ);
  186.   ksExtraK     = #228;     kbExtraK     = $100 * Ord (ksExtraK);
  187.   ksExtraL     = #229;     kbExtraL     = $100 * Ord (ksExtraL);
  188.   ksExtraM     = #230;     kbExtraM     = $100 * Ord (ksExtraM);
  189.   ksExtraN     = #231;     kbExtraN     = $100 * Ord (ksExtraN);
  190.   ksExtraO     = #232;     kbExtraO     = $100 * Ord (ksExtraO);
  191.   ksExtraP     = #233;     kbExtraP     = $100 * Ord (ksExtraP);
  192.   ksExtraQ     = #234;     kbExtraQ     = $100 * Ord (ksExtraQ);
  193.   ksExtraR     = #235;     kbExtraR     = $100 * Ord (ksExtraR);
  194.   ksExtraS     = #236;     kbExtraS     = $100 * Ord (ksExtraS);
  195.   ksExtraT     = #237;     kbExtraT     = $100 * Ord (ksExtraT);
  196.   ksExtraU     = #238;     kbExtraU     = $100 * Ord (ksExtraU);
  197.   ksExtraV     = #239;     kbExtraV     = $100 * Ord (ksExtraV);
  198.   ksExtraW     = #240;     kbExtraW     = $100 * Ord (ksExtraW);
  199.   ksExtraX     = #241;     kbExtraX     = $100 * Ord (ksExtraX);
  200.   ksExtraY     = #242;     kbExtraY     = $100 * Ord (ksExtraY);
  201.   ksExtraZ     = #243;     kbExtraZ     = $100 * Ord (ksExtraZ);
  202.   ksF1         = #59;      kbF1         = $100 * Ord (ksF1);
  203.   ksF2         = #60;      kbF2         = $100 * Ord (ksF2);
  204.   ksF3         = #61;      kbF3         = $100 * Ord (ksF3);
  205.   ksF4         = #62;      kbF4         = $100 * Ord (ksF4);
  206.   ksF5         = #63;      kbF5         = $100 * Ord (ksF5);
  207.   ksF6         = #64;      kbF6         = $100 * Ord (ksF6);
  208.   ksF7         = #65;      kbF7         = $100 * Ord (ksF7);
  209.   ksF8         = #66;      kbF8         = $100 * Ord (ksF8);
  210.   ksF9         = #67;      kbF9         = $100 * Ord (ksF9);
  211.   ksF10        = #68;      kbF10        = $100 * Ord (ksF10);
  212.   ksF11        = #133;     kbF11        = $100 * Ord (ksF11);
  213.   ksF12        = #134;     kbF12        = $100 * Ord (ksF12);
  214.   ksShF1       = #84;      kbShF1       = $100 * Ord (ksShF1);
  215.   ksShF2       = #85;      kbShF2       = $100 * Ord (ksShF2);
  216.   ksShF3       = #86;      kbShF3       = $100 * Ord (ksShF3);
  217.   ksShF4       = #87;      kbShF4       = $100 * Ord (ksShF4);
  218.   ksShF5       = #88;      kbShF5       = $100 * Ord (ksShF5);
  219.   ksShF6       = #89;      kbShF6       = $100 * Ord (ksShF6);
  220.   ksShF7       = #90;      kbShF7       = $100 * Ord (ksShF7);
  221.   ksShF8       = #91;      kbShF8       = $100 * Ord (ksShF8);
  222.   ksShF9       = #92;      kbShF9       = $100 * Ord (ksShF9);
  223.   ksShF10      = #93;      kbShF10      = $100 * Ord (ksShF10);
  224.   ksShF11      = #135;     kbShF11      = $100 * Ord (ksShF11);
  225.   ksShF12      = #136;     kbShF12      = $100 * Ord (ksShF12);
  226.   ksCtrlF1     = #94;      kbCtrlF1     = $100 * Ord (ksCtrlF1);
  227.   ksCtrlF2     = #95;      kbCtrlF2     = $100 * Ord (ksCtrlF2);
  228.   ksCtrlF3     = #96;      kbCtrlF3     = $100 * Ord (ksCtrlF3);
  229.   ksCtrlF4     = #97;      kbCtrlF4     = $100 * Ord (ksCtrlF4);
  230.   ksCtrlF5     = #98;      kbCtrlF5     = $100 * Ord (ksCtrlF5);
  231.   ksCtrlF6     = #99;      kbCtrlF6     = $100 * Ord (ksCtrlF6);
  232.   ksCtrlF7     = #100;     kbCtrlF7     = $100 * Ord (ksCtrlF7);
  233.   ksCtrlF8     = #101;     kbCtrlF8     = $100 * Ord (ksCtrlF8);
  234.   ksCtrlF9     = #102;     kbCtrlF9     = $100 * Ord (ksCtrlF9);
  235.   ksCtrlF10    = #103;     kbCtrlF10    = $100 * Ord (ksCtrlF10);
  236.   ksCtrlF11    = #137;     kbCtrlF11    = $100 * Ord (ksCtrlF11);
  237.   ksCtrlF12    = #138;     kbCtrlF12    = $100 * Ord (ksCtrlF12);
  238.   ksAltF1      = #104;     kbAltF1      = $100 * Ord (ksAltF1);
  239.   ksAltF2      = #105;     kbAltF2      = $100 * Ord (ksAltF2);
  240.   ksAltF3      = #106;     kbAltF3      = $100 * Ord (ksAltF3);
  241.   ksAltF4      = #107;     kbAltF4      = $100 * Ord (ksAltF4);
  242.   ksAltF5      = #108;     kbAltF5      = $100 * Ord (ksAltF5);
  243.   ksAltF6      = #109;     kbAltF6      = $100 * Ord (ksAltF6);
  244.   ksAltF7      = #110;     kbAltF7      = $100 * Ord (ksAltF7);
  245.   ksAltF8      = #111;     kbAltF8      = $100 * Ord (ksAltF8);
  246.   ksAltF9      = #112;     kbAltF9      = $100 * Ord (ksAltF9);
  247.   ksAltF10     = #113;     kbAltF10     = $100 * Ord (ksAltF10);
  248.   ksAltF11     = #139;     kbAltF11     = $100 * Ord (ksAltF11);
  249.   ksAltF12     = #140;     kbAltF12     = $100 * Ord (ksAltF12);
  250.   ksCancel     = #3;       kbCancel     = $100 * Ord (ksCancel);
  251.   ksCopy       = #4;       kbCopy       = $100 * Ord (ksCopy);
  252.   ksUndo       = #5;       kbUndo       = $100 * Ord (ksUndo);
  253.   ksRedo       = #6;       kbRedo       = $100 * Ord (ksRedo);
  254.   ksOpen       = #7;       kbOpen       = $100 * Ord (ksOpen);
  255.   ksClose      = #8;       kbClose      = $100 * Ord (ksClose);
  256.   ksCommand    = #9;       kbCommand    = $100 * Ord (ksCommand);
  257.   ksCreate     = #10;      kbCreate     = $100 * Ord (ksCreate);
  258.   ksExit       = #11;      kbExit       = $100 * Ord (ksExit);
  259.   ksFind       = #12;      kbFind       = $100 * Ord (ksFind);
  260.   ksHelp       = #13;      kbHelp       = $100 * Ord (ksHelp);
  261.   ksMark       = #28;      kbMark       = $100 * Ord (ksMark);
  262.   ksMessage    = #29;      kbMessage    = $100 * Ord (ksMessage);
  263.   ksMove       = #42;      kbMove       = $100 * Ord (ksMove);
  264.   ksNext       = #54;      kbNext       = $100 * Ord (ksNext);
  265.   ksPrevious   = #56;      kbPrevious   = $100 * Ord (ksPrevious);
  266.   ksOptions    = #57;      kbOptions    = $100 * Ord (ksOptions);
  267.   ksReference  = #58;      kbReference  = $100 * Ord (ksReference);
  268.   ksRefresh    = #69;      kbRefresh    = $100 * Ord (ksRefresh);
  269.   ksReplace    = #70;      kbReplace    = $100 * Ord (ksReplace);
  270.   ksResize     = #114;     kbResize     = $100 * Ord (ksResize);
  271.   ksRestart    = #142;     kbRestart    = $100 * Ord (ksRestart);
  272.   ksSuspend    = #144;     kbSuspend    = $100 * Ord (ksSuspend);
  273.   ksResume     = #149;     kbResume     = $100 * Ord (ksResume);
  274.   ksSave       = #150;     kbSave       = $100 * Ord (ksSave);
  275.   ksMenu       = #154;     kbMenu       = $100 * Ord (ksMenu);
  276.   ksClear      = #156;     kbClear      = $100 * Ord (ksClear);
  277.   ksSelect     = #158;     kbSelect     = $100 * Ord (ksSelect);
  278.   ksStop       = #164;     kbStop       = $100 * Ord (ksStop);
  279.  
  280.   ksInt               = #250; kbInt               = $100 * Ord (ksInt);
  281.   ksTerm              = #251; kbTerm              = $100 * Ord (ksTerm);
  282.   ksHUp               = #252; kbHUp               = $100 * Ord (ksHUp);
  283.   ksScreenSizeChanged = #254; kbScreenSizeChanged = $100 * Ord (ksScreenSizeChanged);
  284.  
  285.   chBell       = #7;       kbBell       = Ord (chBell);
  286.   chBkSp       = #8;       kbBkSp       = Ord (chBkSp);
  287.   chTab        = #9;       kbTab        = Ord (chTab);
  288.   chLF         = #10;      kbLF         = Ord (chLF);
  289.   chFF         = #12;      kbFF         = Ord (chFF);
  290.   chCR         = #13;      kbCR         = Ord (chCR);
  291.   chEnter      = chCR;     kbEnter      = Ord (chEnter);
  292.   chEsc        = #27;      kbEsc        = Ord (chEsc);
  293.   chNBSp       = #160;     kbNBSp       = Ord (chNBSp);
  294.  
  295.   chCtrlA      = #1;       kbCtrlA      = Ord (chCtrlA);
  296.   chCtrlB      = #2;       kbCtrlB      = Ord (chCtrlB);
  297.   chCtrlC      = #3;       kbCtrlC      = Ord (chCtrlC);
  298.   chCtrlD      = #4;       kbCtrlD      = Ord (chCtrlD);
  299.   chCtrlE      = #5;       kbCtrlE      = Ord (chCtrlE);
  300.   chCtrlF      = #6;       kbCtrlF      = Ord (chCtrlF);
  301.   chCtrlG      = #7;       kbCtrlG      = Ord (chCtrlG);
  302.   chCtrlH      = #8;       kbCtrlH      = Ord (chCtrlH);
  303.   chCtrlI      = #9;       kbCtrlI      = Ord (chCtrlI);
  304.   chCtrlJ      = #10;      kbCtrlJ      = Ord (chCtrlJ);
  305.   chCtrlK      = #11;      kbCtrlK      = Ord (chCtrlK);
  306.   chCtrlL      = #12;      kbCtrlL      = Ord (chCtrlL);
  307.   chCtrlM      = #13;      kbCtrlM      = Ord (chCtrlM);
  308.   chCtrlN      = #14;      kbCtrlN      = Ord (chCtrlN);
  309.   chCtrlO      = #15;      kbCtrlO      = Ord (chCtrlO);
  310.   chCtrlP      = #16;      kbCtrlP      = Ord (chCtrlP);
  311.   chCtrlQ      = #17;      kbCtrlQ      = Ord (chCtrlQ);
  312.   chCtrlR      = #18;      kbCtrlR      = Ord (chCtrlR);
  313.   chCtrlS      = #19;      kbCtrlS      = Ord (chCtrlS);
  314.   chCtrlT      = #20;      kbCtrlT      = Ord (chCtrlT);
  315.   chCtrlU      = #21;      kbCtrlU      = Ord (chCtrlU);
  316.   chCtrlV      = #22;      kbCtrlV      = Ord (chCtrlV);
  317.   chCtrlW      = #23;      kbCtrlW      = Ord (chCtrlW);
  318.   chCtrlX      = #24;      kbCtrlX      = Ord (chCtrlX);
  319.   chCtrlY      = #25;      kbCtrlY      = Ord (chCtrlY);
  320.   chCtrlZ      = #26;      kbCtrlZ      = Ord (chCtrlZ);
  321.  
  322.   chLineHS     = #196;
  323.   chLineVS     = #179;
  324.   chLineHD     = #205;
  325.   chLineVD     = #186;
  326.   chLineHSS    = chLineHS;
  327.   chLineVSS    = chLineVS;
  328.   chLineHDS    = chLineHD;
  329.   chLineVDS    = chLineVS;
  330.   chLineHSD    = chLineHS;
  331.   chLineVSD    = chLineVD;
  332.   chLineHDD    = chLineHD;
  333.   chLineVDD    = chLineVD;
  334.   chCornerTLS  = #218;
  335.   chCornerTRS  = #191;
  336.   chCornerBLS  = #192;
  337.   chCornerBRS  = #217;
  338.   chCornerTLD  = #201;
  339.   chCornerTRD  = #187;
  340.   chCornerBLD  = #200;
  341.   chCornerBRD  = #188;
  342.   chCornerTLSS = chCornerTLS;
  343.   chCornerTRSS = chCornerTRS;
  344.   chCornerBLSS = chCornerBLS;
  345.   chCornerBRSS = chCornerBRS;
  346.   chCornerTLDS = #213;
  347.   chCornerTRDS = #184;
  348.   chCornerBLDS = #212;
  349.   chCornerBRDS = #190;
  350.   chCornerTLSD = #214;
  351.   chCornerTRSD = #183;
  352.   chCornerBLSD = #211;
  353.   chCornerBRSD = #189;
  354.   chCornerTLDD = chCornerTLD;
  355.   chCornerTRDD = chCornerTRD;
  356.   chCornerBLDD = chCornerBLD;
  357.   chCornerBRDD = chCornerBRD;
  358.   chTeeTS      = #194;
  359.   chTeeBS      = #193;
  360.   chTeeLS      = #195;
  361.   chTeeRS      = #180;
  362.   chTeeTD      = #203;
  363.   chTeeBD      = #202;
  364.   chTeeLD      = #204;
  365.   chTeeRD      = #185;
  366.   chTeeTSS     = chTeeTS;
  367.   chTeeBSS     = chTeeBS;
  368.   chTeeLSS     = chTeeLS;
  369.   chTeeRSS     = chTeeRS;
  370.   chTeeTDS     = #209;
  371.   chTeeBDS     = #207;
  372.   chTeeLDS     = #198;
  373.   chTeeRDS     = #181;
  374.   chTeeTSD     = #210;
  375.   chTeeBSD     = #208;
  376.   chTeeLSD     = #199;
  377.   chTeeRSD     = #182;
  378.   chTeeTDD     = chTeeTD;
  379.   chTeeBDD     = chTeeBD;
  380.   chTeeLDD     = chTeeLD;
  381.   chTeeRDD     = chTeeRD;
  382.   chCenterS    = #197;
  383.   chCenterD    = #206;
  384.   chCenterSS   = chCenterS;
  385.   chCenterDS   = #216;
  386.   chCenterSD   = #215;
  387.   chCenterDD   = chCenterD;
  388.  
  389.   chArrowU     = #24;
  390.   chArrowD     = #25;
  391.   chArrowL     = #27;
  392.   chArrowR     = #26;
  393.   chArrowUD    = #18;
  394.   chArrowLR    = #29;
  395.   chTriangleU  = #30;
  396.   chTriangleD  = #31;
  397.   chTriangleL  = #17;
  398.   chTriangleR  = #16;
  399.   chBlock      = #219;
  400.   chBlockT     = #223;
  401.   chBlockB     = #220;
  402.   chBlockL     = #221;
  403.   chBlockR     = #222;
  404.  
  405.   chClubs      = #5;
  406.   chSpades     = #6;
  407.   chHearts     = #3;
  408.   chDiamonds   = #4;
  409.   chChkBoard1  = #176;
  410.   chChkBoard2  = #177;
  411.   chChkBoard3  = #178;
  412.   chDegree     = #248;
  413.   chPlusMinus  = #241;
  414.   chBullet     = #254;
  415.   chLEqual     = #243;
  416.   chGEqual     = #242;
  417.   chPi         = #227;
  418.   chSmilie1    = #1;
  419.   chSmilie2    = #2;
  420.   chParagraph  = #21;
  421.  
  422.   shLeftShift  = 1;
  423.   shRightShift = 2;
  424.   shShift      = (shRightShift + shLeftShift);
  425.   shLeftCtrl   = 4;
  426.   shRightCtrl  = 8;
  427.   shCtrl       = (shRightCtrl + shLeftCtrl);
  428.   shLeftAlt    = 16;
  429.   shAlt        = shLeftAlt;
  430.   shRightAlt   = 32;
  431.   shAltGr      = shRightAlt;
  432.   shAnyAlt     = (shLeftAlt + shRightAlt);
  433.   shExtra      = 64;
  434.  
  435. {$ifdef __GPC__}
  436. {$if defined (__GPC__)}(*@@fjf238*)
  437. #if defined (X11) && !defined (XCURSES)
  438. #define XCURSES
  439. #endif
  440. #if defined (XCURSES) && !defined (X11)
  441. #define X11
  442. #endif
  443. #if !defined (USE_PDCURSES) && !defined (USE_NCURSES)
  444. #if defined (MSDOS) || defined (_WIN32) || defined (__EMX__) || defined (XCURSES)
  445. #define USE_PDCURSES
  446. #else
  447. #define USE_NCURSES
  448. #endif
  449. #endif
  450. {$else}
  451. {$m Detected GPC preprocessor bug. Working around it here...}
  452. {$ifdef X11}{$ifndef XCURSES}
  453. {$define XCURSES}
  454. {$endif}{$endif}
  455. {$ifdef XCURSES}{$ifndef X11}
  456. {$define X11}
  457. {$endif}{$endif}
  458. {$ifndef USE_PDCURSES}{$ifndef USE_NCURSES}
  459. {$ifdef MSDOS}{$define CRT_TEMP}{$endif}
  460. {$ifdef _WIN32}{$define CRT_TEMP}{$endif}
  461. {$ifdef __EMX__}{$define CRT_TEMP}{$endif}
  462. {$ifdef CRT_TEMP}
  463. {$define USE_PDCURSES}
  464. {$else}
  465. {$define USE_NCURSES}
  466. {$endif}
  467. {$endif}{$endif}
  468. {$endif}
  469. {$endif}
  470.